5 DV=PEEK(186):IFDV<8THENDV=8
10 SYS57812"TILES.FONT",DV,0:POKE780,.:POKE781,.:POKE782,56:SYS65493
15 PRINT"[147][151]";:POKE53272,31:POKE650,128
20 POKE53270,PEEK(53270)OR16
22 GOSUB10010
25 POKE53280,C1:POKE53281,C2:POKE53282,C4:POKE53283,C5
30 FORI=.TO23:PRINT"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[157][148]@":NEXT
40 PRINT"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[157][148]@"
50 PRINTTAB(5)"[193][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][195]"
60 FORI=.TO14:PRINTTAB(5)"[196]                            [197]":NEXT
70 PRINTTAB(5)"[198][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][200]"
80 GOSUB1010:POKE198,0
100 REM --- MAIN ---
110 GETA$:IFA$=""THEN110
120 IFA$<"1"ORA$>"7"THEN110
130 IFA$="7"THEN200
140 ONVAL(A$)GOSUB910,920,930,940,950,960
150 GOSUB1010:GOTO110
200 POKE214,17:PRINT:POKE646,1+(C2=1)
210 PRINTTAB(8)"WANT TO QUIT? (Y) OR (N)"
220 GETA$:IFA$<>"Y"ANDA$<>"N"THEN220
230 IFA$="N"THENPRINTTAB(8)"[145]    PRESS A KEY [1-7]   ":GOTO110
300 REM --- BACK TO THE TOWER ---
320 POKE53270,PEEK(53270)AND239:POKE53272,21
330 GOTO40000
900 REM --- SUBROUTINES ---
910 C1=C1+1AND15:POKE53280,C1:RETURN
920 C2=C2+1AND15:POKE53281,C2:RETURN
930 C3=C3+1AND7:POKE646,C3+8:POKE648,200:PRINT"[147]":POKE648,4:RETURN
940 C4=C4+1AND15:POKE53282,C4:RETURN
950 C5=C5+1AND15:POKE53283,C5:RETURN
960 FORI=.TO7:POKE14336+I,RND(1)*256:NEXT:RETURN
1000 REM --- INFO ---
1010 POKE214,5:PRINT
1020 POKE646,1+(C2=1)
1030 PRINTTAB(12)"MULTICOLOR TILES"
1040 PRINTTAB(8)"[1] BORDER      : "C$(C1)
1050 PRINTTAB(8)"[2] BACKGROUND  : "C$(C2)
1060 PRINTTAB(8)"[3] FOREGROUND  : "C$(C3)
1070 PRINTTAB(8)"[4] MULTICOLOR1 : "C$(C4)
1080 PRINTTAB(8)"[5] MULTICOLOR2 : "C$(C5)
1090 PRINTTAB(20)"[176][192][174] [176][192][174]"
1100 PRINTTAB(8)"[6] PATTERN [221]";
1101 POKE646,C3+8:PRINT"@";:POKE646,1+(C2=1):PRINT"[221] [221]";
1102 POKE646,C3:PRINT"@";:POKE646,1+(C2=1):PRINT"[221]"
1110 PRINTTAB(20)"[173][192][189] [173][192][189]"
1120 PRINTTAB(8)"[7] QUIT"
1130 PRINTTAB(12)"PRESS A KEY [1-7]"
1140 RETURN
10000 OPEN15,8,15,"S0:MC TILES":CLOSE15:SAVE"MC TILES",8:END
10010 C1=6:C2=0:C3=3:C4=6:C5=14:X=RND(-TI)
10020 DIMC$(15):FORI=.TO15:READC$(I):NEXT
10100 RETURN
20000 REM --- COLORS ---
20010 DATA"BLACK  ","WHITE  ","RED    "
20020 DATA"CYAN   ","PURPLE ","GREEN  "
20030 DATA"BLUE   ","YELLOW ","ORANGE "
20040 DATA"BROWN  ","PINK   ","D.GREY "
20050 DATA"M.GREY ","L.GREEN","L.BLUE "
20060 DATA"L.GREY "
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END